Option Explicit
Sub N_Sample004()
    'wɶP{ǦW
    Application.OnTime Now() + TimeValue("00:00:05"), "N_Sample004_1"
End Sub

'QIsX{
Sub N_Sample004_1()
    MsgBox "N_Sample004_1"
End Sub
